﻿Public Class Terceros

 
    Private Sub b_Siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_Siguiente.Click
        If lab_Imagenes.ImageIndex < ImageList1.Images.Count - 1 Then
            lab_Imagenes.ImageIndex += 1
        Else
            lab_Imagenes.ImageIndex = 0
        End If

        If lab_Imagenes.ImageIndex = 0 Then
            lab_Direccion.Text = "www.centauro.es"
        ElseIf lab_Imagenes.ImageIndex = 1 Then
            lab_Direccion.Text = "www.norvet.es"
        ElseIf lab_Imagenes.ImageIndex = 2 Then
            lab_Direccion.Text = "www.portavet.es"
        Else
            lab_Direccion.Text = "www.spveterinaria.es"
        End If

    End Sub

    Private Sub lab_Imagenes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lab_Imagenes.Click

        If lab_Imagenes.ImageIndex = 0 Then
            System.Diagnostics.Process.Start("http://www.centauro.es/")
        ElseIf lab_Imagenes.ImageIndex = 1 Then
            System.Diagnostics.Process.Start("http://www.norvet.es/")
        ElseIf lab_Imagenes.ImageIndex = 2 Then
            System.Diagnostics.Process.Start("http://www.portavet.es/")
        Else
            System.Diagnostics.Process.Start("www.spveterinaria.es/")
        End If


    End Sub

    Private Sub Terceros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lab_Imagenes.ImageIndex = 0
    End Sub

    Private Sub VolverToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolverToolStripMenuItem.Click
        GestionGeneral.Show()
        Me.Close()
    End Sub
End Class